home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Forever 4
/
Atari Forever 4.zip
/
Atari Forever 4.iso
/
SERIE_SP
/
SP_015
/
FACE_VAL
/
LISTINGS
/
LISTING5.TXT
< prev
next >
Wrap
Text File
|
1998-03-14
|
2KB
|
72 lines
PROCEDURE user_rsc_var_init
'
current_menubar&=menu& //set this to the menu bar tree index
'
LET formradi_var&=1 // Min=1/Max=3 - tree: format&
LET kursiv_var!=FALSE // TRUE/FALSE - tree: schrift&
LET underlin_var!=FALSE // TRUE/FALSE - tree: schrift&
LET hochgest_var!=FALSE // TRUE/FALSE - tree: schrift&
LET tiefgest_var!=FALSE // TRUE/FALSE - tree: schrift&
LET gesperrt_var!=FALSE // TRUE/FALSE - tree: schrift&
LET gesptext_var$="" // Max lenght: 2 - tree: schrift&
'
RETURN
PROCEDURE user_rsc_interact(index&,tree&,object&,mc&,sub_me&)
'
SELECT tree&
CASE menu&
SELECT object&
CASE menuabou&
LET prginfo_dialog&=@win_open_dialog(2,prginfo&,icfyicon&)
CASE menuform&
LET format_dialog&=@win_open_dialog(1,format&,icfyicon&)
CASE menuschr&
' Hier den Schriftdialog aufrufen
LET schrift_dialog&=@win_open_dialog(1,schrift&,icfyicon&)
CASE menuquit&
exit_program!=TRUE
ENDSELECT
CASE prginfo&
SELECT object&
CASE infook&
@win_close(prginfo_dialog&)
ENDSELECT
CASE format&
SELECT object&
CASE formok&
SELECT formradi_var&
CASE 1 // 1. Button: linksbündig
ALERT 1,"Linksbündig wurde |ausgewählt. ",1," OK ",dummy|
CASE 2 // 2. Button: zentriert
ALERT 1,"Zentriert wurde |ausgewählt. ",1," OK ",dummy|
CASE 3 // 3. Button: rechtsbündig
ALERT 1,"Rechtsbündig wurde |ausgewählt. ",1," OK ",dummy|
ENDSELECT
@win_close(format_dialog&)
ENDSELECT
CASE schrift&
SELECT object&
CASE hochgest&
' Der Button "hochgestellt" wurde gedrückt
IF tiefgest_var! AND hochgest_var!
CLR tiefgest_var!
@rsc_ob_reset(schrift&,tiefgest&)
ENDIF
CASE tiefgest&
' Der Button "tiefgestellt" wurde gedrückt
IF tiefgest_var! AND hochgest_var!
CLR hochgest_var!
@rsc_ob_reset(schrift&,hochgest&)
ENDIF
CASE schrifok&
' Der OK-Button im Schriftdialog wurde betätigt
IF gesperrt_var!
ALERT 1,"Der Text soll um |"+gesptext_var$+" Punkte gesperrt |werden. ",1," OK ",dummy|
ELSE
ALERT 1,"Der Text soll nicht |gesperrt werden. ",1," OK ",dummy|
ENDIF
@win_close(schrift_dialog&)
ENDSELECT
ENDSELECT
RETURN